""那么msg = SendMail(请求(“SMTPServer”)、Request(“SMTPServerUserName”)、Request(“SMTPServerPassword”)、Request(“邮件域”)、Request(“邮件地址”)、Request(“邮件名称”)、Request(“邮件正文”)、Request(“发件人”)、Request(“优先级”)(如果msgthenresponse.write(“成功发送”)则为response。Write("发送不成功")response.end () end函数sendmail (SMTP服务器、SMTPServerUserName、SMTPServerPassword、MailDomain、MailtoAddress、MailtoName、Subject、MailBody、FromName、MailFrom、Priority) dim JMail，Set msgjmail = server . createobject(" JMail . message ")JMail . charset = " GB 2312 " '代码JMail.silent=true '设置为true时，JMail不会抛出异常。JMail。ContentType = "text/plain " '邮件正文格式' JMail。服务器地址= SMTP服务器“用于发送邮件的SMTP服务器(无效)”指定邮件服务器的地址。您可以指定多个服务器，并用分号单击它们。您可以指定端口号。如果服务器地址保持空白色，JMail将尝试解决远程邮件服务器，并将其直接发送到服务器。？？？例如JMail。服务器地址= & tquomail.mydom.net；2 . mydom . net:2500 " jmail . mail server username = SMTP server username '登录用户名JMail . mail server password = SMTP server password '登录密码JMail。MailDoma In = MailDomain '域名(如果您使用“name@domain.com”这样的用户名登录，请注明domain.com jmail。将收件人邮件添加到收件人电子邮件地址。主题=主题'主题电子邮件。Body = MailBody '邮件正文(纯文本格式)JMail。发件人名称JMail。发件人=邮件发件人'发件人电子邮件。priority = priority '邮件级别12345mg = jmail。send (SMTP服务器)jmail . closesetjmail = nothing sendmail = msgend function % >收件人电子邮件:收件人:主题:内容:发件人电子邮件:发件人: